1 REM AUTODIR BOOT
2 IFLF<>0THEN200
5 CO=53280:POKECO,2:POKECO+1,0
10 POKE53272,23:PRINT"[147]"TAB(85)"  [158] [197] [218]  [160][160][196][160][201][160][210][160][197][160][195][160][212][160][207][160][210][160][217] "
12 PRINTSPC(9)"[215]RITTEN BY [210].[215]. [203]OBER"
14 PRINTSPC(6)"[204][207][193][196][211][212][193][210] IS NOT PUBLIC DOMAIN."
15 PRINT"   [208]LEASE RESPECT THE AUTHOR'S RIGHTS.":GOSUB99
20 PRINT"   1. [204][207][193][196] AND [210][213][206] [197][218]-[196][201][210]."
22 PRINT"   2. [204][207][193][196][160]AND [210][213][206][160][197][218]-[196][201][210] [195][210][197][193][212][207][210]."
24 PRINT"   3. [194]ACK TO [204][207][193][196][211][212][193][210]."
26 PRINT"[215]HICH ?";
28 POKE198,0:WAIT198,1:GETA$:A=VAL(A$)
30 IFA<1ORA>3THEN28
32 R$="RUN"
34 IFA=1THENLF=1:LOAD"EZDIR",8,1
36 IFA=2THENF$="EZDIR CREATOR"
38 IFA=3THENF$="PAYLOAD"
40 :
50 PRINTA:PRINT"[204]OADING "F$
60 POKE646,PEEK(53281)
70 PRINT"LOAD"CHR$(34)F$CHR$(34)",8,1":PRINT""R$""
72 POKE631,13:POKE632,13:POKE198,2:END
80 :
99 PRINT"";:FORI=1TO40:PRINT"*";:FORJ=1TO5:NEXTJ,I:PRINT"[144]":RETURN
200 REM    SYS EZDIR
210 PRINT"[147][144][154]"
220 SYS820
230 PRINT"[212]O RE-ENTER [204][207][193][196][211][212][193][210], PRESS [210][197][212][213][210][206]:":PRINT"RUN[145][145][145]"
240 END